; var free set! tests



; varparam set test
((lambda (a b) 
	(set! a 3)
	(binary-add a b)
 ) 100 0)
; var bound set test
(((lambda (a b)
	(lambda (c d)
		(set! a 0)
		(binary-add d a))) 100 1) 2 3)
